home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 68 / IOPROG_68.ISO / soft / Tools / AIProSF / AIProSF.exe / ActiveInstall Professional.msi / Data.cab / AddIn.Dsr (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-02-09  |  2.6 KB  |  73 lines
  1. VERSION 5.00
  2. Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} AddIn 
  3.    ClientHeight    =   10260
  4.    ClientLeft      =   1740
  5.    ClientTop       =   1545
  6.    ClientWidth     =   12705
  7.    _ExtentX        =   22410
  8.    _ExtentY        =   18098
  9.    _Version        =   393216
  10.    Description     =   "This is a small COM Add-In which does not do much.  It is provided to demonstrate key features available to COM Add-Ins."
  11.    DisplayName     =   "Sample COM Add-In"
  12.    AppName         =   "ActiveInstall Professional"
  13.    AppVer          =   "ActiveInstall Professional 1.0"
  14.    LoadName        =   "Startup"
  15.    LoadBehavior    =   3
  16.    RegLocation     =   "HKEY_CURRENT_USER\Software\ActiveInstall Corp.\ActiveInstall Professional\VBA"
  17.    CmdLineSupport  =   -1  'True
  18. Attribute VB_Name = "AddIn"
  19. Attribute VB_GlobalNameSpace = False
  20. Attribute VB_Creatable = True
  21. Attribute VB_PredeclaredId = False
  22. Attribute VB_Exposed = True
  23. Option Explicit
  24. Private m_Form As frmAddIn
  25. Private WithEvents m_AI As ActiveInstall.Application
  26. Attribute m_AI.VB_VarHelpID = -1
  27. '*******************************
  28. 'Add-In Designer Events
  29. '*******************************
  30. Private Sub AddinInstance_OnAddInsUpdate(custom() As Variant)
  31.     m_Form.AddEvent "OnAddInsUpdate"
  32. End Sub
  33. Private Sub AddinInstance_OnBeginShutdown(custom() As Variant)
  34.     m_Form.AddEvent "OnBeginShutdown"
  35.     m_AI.RemoveCommand "Cmd1"
  36. End Sub
  37. Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
  38.     Set m_AI = Application
  39.     Set m_Form = New frmAddIn
  40.     m_Form.Show
  41.     m_Form.AddEvent "OnConnection"
  42. End Sub
  43. Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
  44.     On Error Resume Next
  45.     Unload m_Form
  46.     Set m_Form = Nothing
  47.     Set m_AI = Nothing
  48. End Sub
  49. Private Sub AddinInstance_OnStartupComplete(custom() As Variant)
  50.     m_Form.AddEvent "OnStartupComplete"
  51.     'Add a Menu Command
  52.     Debug.Print m_AI.AddCommand("Cmd1", "Add-In Event Monitor")
  53. End Sub
  54. '*******************************
  55. 'ActiveInstall Events
  56. '*******************************
  57. Private Sub m_AI_BeforeViewSwitch()
  58.     m_Form.AddEvent "BeforeViewSwitch"
  59. End Sub
  60. Private Sub m_AI_CommandClick(Name As String)
  61.     m_Form.AddEvent "CommandClick"
  62.     Select Case Name
  63.         Case "Cmd1"
  64.             m_Form.Show
  65.     End Select
  66. End Sub
  67. Private Sub m_AI_ProjectOpen(Project As Object)
  68.     m_Form.AddEvent "ProjectOpen"
  69. End Sub
  70. Private Sub m_AI_ViewSwitch()
  71.     m_Form.AddEvent "ViewSwitch"
  72. End Sub
  73.